# Usage: void.tcl

if {![info exists eWorkDir]} {set eWorkDir [file dirname [info script]]}

package require DPeye

create {
	sourceFile standard.tcl
	outputFile void.ps 
	mapFile void.map
	title "diplomacy map (void variant)"
	images {
		chart {void.base.ps {scan {22 25 650 576} {} {{part1 part2 part3 part4 part5 LAND} {Then Africa LAND} BritishIsles Lakes Islands part9 part10 part11 part12 part13 part14 part15 part16 part17 part18} \
			{gm moveto lin lineto SEA {Blue fill} ISLAND {Brown fill} SWITZERLAND {Grey fill} BORDER {BorderBlack stroke} internal {Black stroke} lastborder {} LAND {LandBrown stroke} miny 25}} LandBrown {}}
		coordinates {void.base.ps {scan {} {provinces INFO supplies TLA}} {} {}}
	}
	colors {
		AdriaticSeaColor {.3 .6 .7}
		AegeanSeaColor {.5 .75 0}
		AlbaniaColor {.5 1 1}
		ApuliaColor {.3 0 .75}
		ArmeniaColor {1 0 0}
		BalticSeaColor {.75 .5 0}
		BarentsSeaColor {.75 0 .5}
		BlackSeaColor {0 0 0}
		BohemiaColor {0 0 1}
		BurgundyColor {1 1 0}
		ClydeColor {1 0 1}
		EnglishChannelColor {0 1 1}
		FinlandColor {.7 .3 .6}
		GaliciaColor {0 .75 .5}
		GasconyColor {0 .5 .75}
		GulfOfBothniaColor {1 1 1}
		GulfOfLyonColor {.7 .7 .7}
		HelgolandBightColor {.5 0 .75}
		IonianSeaColor {.35 .35 .25}
		LivoniaColor {.9 .5 .1}
		MidAtlanticOceanColor {.6 1 .6}
		NorthSeaColor {0 1 0}
		NorwegianSeaColor {.6 .6 1}
		PicardyColor {.75 0 0}
		PiedmontColor {1 .6 .6}
		PrussiaColor {0 .75 0}
		RuhrColor {.5 .7 .5}
		SilesiaColor {.8 .8 .3}
		SkagerrakColor {1 .4 .5}
		TuscanyColor {.3 0 .5}
		TyroliaColor {.5 .3 0}
		TyrrhenianSeaColor {0 .5 .3}
		UkraineColor {.94 .86 .51}
		WalesColor {.1 .4 .1}
		WMediterraneanSeaColor {.3 1 .3}
		YorkshireColor {.7 .6 .3}
	}
	powerNameVariations {short {retreats owners adjustments} long orders}
	powers {
		AdriaticSea {A AdriaticSeaColor Black "A-ADR" "A-ADRIATIC SEA"}
		AegeanSea {B AegeanSeaColor Black "B-AEG" "B-AEGEAN SEA"}
		Albania {C AlbaniaColor Black "C-ALB" "C-ALBANIA"}
		Apulia {D ApuliaColor White "D-APU" "D-APULIA"}
		Armenia {E ArmeniaColor Black "E-ARM" "E-ARMENIA"}
		BalticSea {F BalticSeaColor Black "F-BAL" "F-BALTIC SEA"}
		BarentsSea {G BarentsSeaColor White "G-BAR" "G-BARENTS SEA"}
		BlackSea {H BlackSeaColor White "H-BLA" "H-BLACK SEA"}
		Bohemia {I BohemiaColor White "I-BOH" "I-BOHEMIA"}
		Burgundy {J BurgundyColor Black "J-BUR" "J-BURGUNDY"}
		Clyde {K ClydeColor Black "K-CLY" "K-CLYDE"}
		EnglishChannel {L EnglishChannelColor Black "L-ENG" "L-ENGLISH CHANNEL"}
		Finland {N FinlandColor Black "N-FIN" "N-FINLAND"}
		Galicia {P GaliciaColor Black "P-GAL" "P-GALICIA"}
		Gascony {Q GasconyColor White "Q-GAS" "Q-GASCONY"}
		GulfOfBothnia {R GulfOfBothniaColor Black "R-BOT" "R-GULF OF BOTHNIA"}
		GulfOfLyon {S GulfOfLyonColor Black "S-LYO" "S-GULF OF LYON"}
		HelgolandBight {T HelgolandBightColor White "T-HEL" "T-HELGOLAND BIGHT"}
		IonianSea {U IonianSeaColor White "U-ION" "U-IONIAN SEA"}
		Livonia {V LivoniaColor White "V-LVN" "V-LIVONIA"}
		MidAtlanticOcean {W MidAtlanticOceanColor Black "W-MAO" "W-MID ATLANTIC OCEAN"}
		NorthSea {X NorthSeaColor Black "X-NTH" "X-NORTH SEA"}
		NorwegianSea {Y NorwegianSeaColor Black "Y-NWG" "Y-NORWEGIAN SEA"}
		Picardy {Z PicardyColor White "Z-PIC" "Z-PICARDY"}
		Piedmont {0 PiedmontColor Black "0-PIE" "0-PIEDMONT"}
		Prussia {1 PrussiaColor White "1-PRU" "1-PRUSSIA"}
		Ruhr {2 RuhrColor Black "2-RUH" "2-RUHR"}
		Silesia {3 SilesiaColor Black "3-SIL" "3-SILESIA"}
		Skagerrak {4 SkagerrakColor Black "4-SKA" "4-SKAGERRAK"}
		Tuscany {5 TuscanyColor White "5-TUS" "5-TUSCANY"}
		Tyrolia {6 TyroliaColor White "6-TYR" "6-TYROLIA"}
		TyrrhenianSea {7 TyrrhenianSeaColor White "7-TYS" "7-TYRRHENIAN SEA"}
		Ukraine {8 UkraineColor Black "8-UKR" "8-UKRAINE"}
		Wales {9 WalesColor White "9-WAL" "9-WALES"}
		WMediterraneanSea {+ WMediterraneanSeaColor Black "+-WES" "+-W MEDITERRANEAN SEA"}
		Yorkshire {* YorkshireColor Black "*-YOR" "*-YORKSHIRE"}
	}
	layout {corner retreats} fontSize 6.5
	ownerColumns 3 ownerAllowsOverlap 1 ownerLineLength 36 ownerBoxLength 36 ownerNameLength 6 
	adjustmentBoxLength 12! adjustmentNameLength 5
	retreatBoxLength 9 retreatNameLength 5 
	orderBoxLength 72! orderHasHeading 2 
}
